home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.07 Jul 90 / Commando Programming ƒ / Rezscripts / RezC.ALRT < prev    next >
Encoding:
Text File  |  1989-08-09  |  2.5 KB  |  117 lines  |  [TEXT/MPS ]
  1. ####    RezC.ALRT - Build rez input for alerts
  2. ####        Writes into front window by default
  3. ####            W.G. Powell    1988
  4.  
  5. Set Exit 0
  6. Set rtyp 'ALRT'
  7. If {#} < 2
  8.     Echo "### {0} Error: Bad arguments - use commando">>Dev:StdErr
  9.     Exit 1
  10. End
  11. Set rid {1}
  12. Shift 1
  13. Echo -n "Resource ∂'{rtyp}∂' ({rid}"
  14. If "{1}" == "-nms"
  15.     Set rname "{2}"
  16.     If ( "{rname}" != "" )
  17.         Echo -n ,∂""{rname}"∂"
  18.     End
  19.     Shift 2
  20. End
  21. If "{1}" == "-t"
  22.     Set tr {2}
  23.     Shift 2
  24. Else
  25.     Echo "### {0} Error: Rectangle args out of order">>Dev:StdErr
  26.     Exit 1
  27. End
  28. If "{1}" == "-l"
  29.     Set lr {2}
  30.     Shift 2
  31. Else
  32.     Echo "### {0} Error: Rectangle args out of order">>Dev:StdErr
  33.     Exit 1
  34. End
  35. If "{1}" == "-b"
  36.     Set br {2}
  37.     Shift 2
  38. Else
  39.     Echo "### {0} Error: Rectangle args out of order">>Dev:StdErr
  40.     Exit 1
  41. End
  42. If "{1}" == "-r"
  43.     Set rr {2}
  44.     Shift 2
  45. Else
  46.     Echo "### {0} Error: Rectangle args out of order">>Dev:StdErr
  47.     Exit 1
  48. End
  49. If "{1}" == "-DITL"
  50.     Set Ditln {2}
  51.     Shift 2 
  52. Else
  53.     Echo "### {0} Error: DITL args out of order">>Dev:StdErr
  54.     Exit 1
  55. End
  56.  
  57. If ( "{1}" == "-sy" ) ; Echo -n ",SysHeap" ; Shift ; End
  58. If ( "{1}" == "-pu" ) ; Echo -n ",Purgeable" ; Shift ; End
  59. If ( "{1}" == "-lo" ) ; Echo -n ",Locked" ; Shift ; End
  60. If ( "{1}" == "-Pr" ) ; Echo -n ",Protected" ; Shift ; End
  61. If ( "{1}" == "-PL" ) ; Echo -n ",PreLoad" ; Shift ; End
  62. Echo ") ∂{"
  63. Echo "∂t∂{{tr},{lr},{br},{rr}∂},∂t∂t∂/* Window Rect *∂/"
  64. Echo "∂t{Ditln},∂t∂t∂t∂t∂/* DITL ID number *∂/"
  65. Set AllSame 1
  66. If "{1}" == "-as14"
  67.     Set AllSame 0
  68.     Shift
  69. End
  70. Set cnt 0
  71. Loop
  72.     Set cnt `Evaluate {cnt} + 1`
  73.     If ( (NOT {AllSame}) || ({cnt} == 1) )
  74.         If "{1}" == "-V{cnt}"
  75.             Set draw{cnt} ",visible"
  76.         Else If "{1}" == "-I{cnt}"
  77.             Set draw{cnt} ",invisible"
  78.         Else
  79.             Echo "### {0} Error: Stage {cnt} Draw arg">>Dev:StdErr
  80.             Exit 1
  81.         End
  82.         If "{2}" == "-OK{cnt}"
  83.             Set butn{cnt} "OK"
  84.         Else If "{2}" == "-Can{cnt}"
  85.             Set butn{cnt} "Cancel"
  86.         Else
  87.             Echo "### {0} Error: Stage {cnt} Butn arg">>Dev:StdErr
  88.             Exit 1
  89.         End
  90.         If "{3}" == "-S0{cnt}"
  91.             Set snd{cnt} ",silent"
  92.         Else If "{3}" == "-S1{cnt}"
  93.             Set snd{cnt} ",Sound1"
  94.         Else If "{3}" == "-S2{cnt}"
  95.             Set snd{cnt} ",Sound2"
  96.         Else If "{3}" == "-S3{cnt}"
  97.             Set snd{cnt} ",Sound3"
  98.         Else
  99.             Echo "### {0} Error: Stage {cnt} Sound arg">>Dev:StdErr
  100.             Exit 1
  101.         End
  102.         Shift 3
  103.     Else
  104.         Set butn{cnt} "{butn1}"
  105.         Set draw{cnt} "{draw1}"
  106.         Set snd{cnt} "{snd1}"
  107.     End
  108.     Break If {cnt} >= 4
  109. End
  110. Echo "∂t∂{"
  111. Echo "∂t{butn4}{draw4}{snd4};    /* stage 4 */"
  112. Echo "∂t{butn3}{draw3}{snd3};    /* stage 3 */"
  113. Echo "∂t{butn2}{draw2}{snd2};    /* stage 2 */"
  114. Echo "∂t{butn1}{draw1}{snd1}     /* stage 1 */"
  115. Echo "∂t∂}∂n∂};"
  116. Exit 0
  117. Echo {#} ≥≥Dev:StdErr